Presentación

Column

Bienvenida

MRSE Hídricos de la EPS Ilo S.A.

EPS Ilo S.A. realiza implementación del Plan de Intervención los MRSE en la Comunidad Campesina de Asana con la finalidad de conservación y recuperación de los Servicios Ecosistemos Hídricos.

Bienvenido a esta plataforma de acceso público

Equipo MRSE

Column

Hola
Aquí te presentamos una breve infografía esperando sea de tu agrado y ayude para una mejor comprensión de lo que puede hacer un MRSE.

Hoja 1

Hoja 2

Column

Presentación del MRSE-H

Ubicación de las intervenciones

Noticias

EL INICIO DE LA IMPLEMENTACIÓN


EPS ILO S.A. INICIA IMPLEMENTACIÓN DE LOS MECANISMOS DE RETRIBUCIÓN POR SERVICIOS ECOSISTÉMICOS HÍDRICOS (MRSE-HÍDRICO)

Trabajos se realizan con la finalidad de conservar, restaurar y asegurar la sostenibilidad del recurso hídrico.

Ilo, 26 de setiembre 2022

La EPS ILO S.A. ha presentado el informe final del Diseño de los Mecanismos de Retribución por Servicios Ecosistémicos Hídricos MRSE- Hídrico, a la Superintendencia Nacional de Servicios de Saneamiento – SUNASS como ente regulador, para su evaluación y pronta aprobación, para así dar inicio a la ejecución del Plan de Intervención del MRSE-Hídrico.

SUPERVISIÓN DE ZANJAS DE INFILTRACIÓN

FIRMA DE ACUERDO INSTITUCIONAL 2023


EPS Ilo S.A. realiza visita técnica y firma acuerdo institucional con la Comunidad Campesina de Asana.

25 de febrero del 2023

EPS ILO y la Comunidad Campesina de Asana suscribieron un compromiso para la intervención del MRSE durante el año 2023. Asimismo, se reunieron los comuneros de la zona para conocer el funcionamiento de la estación pluviométrica.

NOTICIA 1

NOTICIA 2

Precipitación

Column

GRÁFICO DE CALENDARIO

DATOS CRUDOS (DESCARGA)

Column

GRÁFICO DE BARRAS

Column

Precipitación acumulada total

214.6 milímetros

Inicio de mediciones

2023-02-02 14:10:00

Última dato descargado de la estación

2023-07-09 10:50:00

GRÁFICO DE CAJAS

---
title: "MRSE"
output: 
  flexdashboard::flex_dashboard:
    logo: logo.png
    favicon: imagen1.png
    theme:
      version: 4
      bootswatch: cerulean
    storyboard: true
    social: menu
    source: embed
    orientation: columns
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
library(flexdashboard)
library(highcharter)
library(tidyverse)
library(xts)
library(DT)
library(xaringanExtra)
library(plotly)
library(ggthemes)
library(openair)
library(lubridate)
library(ragg)
```

Presentación {data-icon="fa-droplet"}
===

Column {data-width=200}
---
<center>
![](https://cdn.www.gob.pe/uploads/campaign/photo/000/001/008/Logo-EALV-sin-fondo.png){width="200"}
</center>

### <span style="color:darkblue;font-weight:bold;">Bienvenida</span>

> ***MRSE Hídricos de la EPS Ilo S.A.***
>
>
>
>EPS Ilo S.A. realiza implementación del Plan de Intervención los MRSE en la Comunidad Campesina de Asana con la finalidad de conservación y recuperación de los Servicios Ecosistemos Hídricos.
>
>
>
>
> ***Bienvenido a esta plataforma de acceso público***

> --- ***Equipo MRSE***

Column {.tabset data-width="600" .tabset-fade}
---
<center>
<b>Hola</b><br>
Aquí te presentamos una breve infografía esperando sea de tu agrado y ayude para una mejor comprensión de lo que puede hacer un MRSE.
</center>

### <span style="color:darkblue;font-weight:bold;">Hoja 1</span>

![](hoja1.png)

### <span style="color:darkblue;font-weight:bold;">Hoja 2</span>

![](hoja2.png)

Column {data-width=350}
---

### <span style="color:darkblue;font-weight:bold;">Presentación del MRSE-H </span>

```{r}
embed_xaringan("m2/pres.html",ratio="4:3")
```

### <span style="color:darkblue;font-weight:bold;">Ubicación de las intervenciones</span>

<iframe width="100%" height="450" frameborder="0" title="Felt Map" src="https://felt.com/embed/map/MRSE-HIDRICO-EPS-ILO-S-A-q4wyI3qcRr6gFqjR8mxgPC?loc=-17.04828,-70.48587,13.67z"></iframe>



Noticias {.storyboard data-icon="fa-newspaper"}
===

### EL INICIO DE LA IMPLEMENTACIÓN

![](https://www.epsilo.com.pe/uploads/Documentos/Publicaciones/Noticias/2022_Img23_EPSILOIniciaImplementacionMecanismosEcosistemicosHidricos/2022_Img23.1_EPSILOIniciaImplementacionMecanismosEcosistemicosHidricos.jpg)

***

<center>

***EPS ILO S.A. INICIA IMPLEMENTACIÓN DE LOS MECANISMOS DE RETRIBUCIÓN POR SERVICIOS ECOSISTÉMICOS HÍDRICOS (MRSE-HÍDRICO)***

*Trabajos se realizan con la finalidad de conservar, restaurar y asegurar la sostenibilidad del recurso hídrico.*

Ilo, 26 de setiembre 2022

La EPS ILO S.A. ha presentado el informe final del Diseño de los Mecanismos de Retribución por Servicios Ecosistémicos Hídricos MRSE- Hídrico, a la Superintendencia Nacional de Servicios de Saneamiento – SUNASS como ente regulador, para su evaluación y pronta aprobación, para así dar inicio a la ejecución del Plan de Intervención del MRSE-Hídrico.
</center>

### SUPERVISIÓN DE ZANJAS DE INFILTRACIÓN

![](noticia1.png )

### FIRMA DE ACUERDO INSTITUCIONAL 2023

![](acuerdo.jpg)

***

<center>

***EPS Ilo S.A. realiza visita técnica y firma acuerdo institucional con la Comunidad Campesina de Asana.***

*25 de febrero del 2023*

EPS ILO y la Comunidad Campesina de Asana suscribieron un compromiso para la intervención del MRSE durante el año 2023. Asimismo, se reunieron los comuneros de la zona para conocer el funcionamiento de la estación pluviométrica.

</center>

### NOTICIA 1

![](1.1.jpg)


### NOTICIA 2

Precipitación {data-icon="fa-chart-simple"}
===

## Column {data-width="600"}

### <span style="color:darkblue;font-weight:bold;">GRÁFICO DE CALENDARIO</span>

```{r}
# Carga de las bases de datos:
df0 <- read.csv("mayo.csv")[1:6584,-1]
df <- read.csv("Estacion_julio_0.csv",
               sep = ",")
names(df) <- c("fecha","Precipitacion")
df <- df %>% 
  mutate(fecha= as.POSIXct(
    fecha,format="%m/%d/%Y %H:%M"))
df0 <- df0 %>% 
  mutate(fecha= as.POSIXct(
    paste(fecha,hora,sep=" "),
    format="%Y-%m-%d %H:%M")) %>% 
  select(fecha,Precipitacion)

# Data completa:
df <- rbind(df0,df)

# Datos diarios:

df3 <- df[,c(1,2)] %>% mutate(
  fecha = as.Date(fecha, format="%Y-%m-%d"),
  fecha1 = format(fecha, format = "%Y-%m"),
  fecha2 = format(fecha, format = "%m"),
  fecha3 = format(fecha, format= "%d")) %>% 
  group_by(fecha,fecha1,fecha2,fecha3) %>% 
  summarise(Precipitacion= sum(Precipitacion,na.rm=T)) %>% 
  ungroup()

# Gráfico de barras para facetas:
m2 <- df3 %>% ggplot(aes(x=fecha3,y=Precipitacion))+
  geom_bar(stat="identity",fill="turquoise")+
  labs(x="Fecha",y="Precipitación (mm)") + 
  theme_minimal() + theme(plot.title = element_text(size = 14,
    face = "bold", hjust = 0.5),
    plot.subtitle = element_text(size = 12,
    face = "italic", hjust = 0.5),
    legend.position = "none",
    strip.text.x = element_text(colour = "white",face = "bold",
                                family = "helvetica"),
    strip.background = element_rect(
     color="#3182BD", fill="#3182BD",
     size=1.5, linetype="solid"),
    axis.title = element_text(size = 7),
    axis.text.x = element_text(size = 7,
        angle = 90)) +
  facet_wrap(~fecha1,ncol=1)

# gráfico ggplot para cajas:
a1 <- df3 %>% ggplot(aes(x=fecha2,y=Precipitacion))+
  geom_boxplot(color="darkblue",fill="transparent",outlier.shape = NA)+
  labs(x = "Meses",color="Meses",fill="Meses",y="Precipitación (mm)")+
  geom_jitter(size=1.8,alpha=0.4,color="#3182BD",width = 0.15) +
  theme(legend.position = "none")+
  theme_minimal()


####### Calendario

dat_pr <- df3[,c(1,5)]
  names(dat_pr) <- c("date","pr")
  
  dat_pr <- dat_pr %>% 
    complete(date = seq(ymd("2023-02-01"), 
                        ymd("2023-07-31"),"day")) %>%
    mutate(weekday = wday(date, label = T, week_start = 1,
                          locale = Sys.getlocale("LC_TIME")), 
           month = month(date, label = T, abbr = F),
           week = isoweek(date),
           day = day(date))


  dat_pr <- mutate(dat_pr, 
                   week = case_when(month == "December" & week == 1 ~ 53,
                                    month == "January" & week %in% 52:53 ~ 0,
                                    TRUE ~ week))

  
# color ramp
pubu <- RColorBrewer::brewer.pal(9, "PuBu")
col_p <- colorRampPalette(pubu)  
  
# Configuración del tema
theme_calendar <- function(){
    theme(aspect.ratio = 1/2,
          axis.title = element_blank(),
          axis.ticks = element_blank(),
          axis.text.y = element_blank(),
          axis.text = element_text(
            family = "Montserrat"),
          panel.grid = element_blank(),
          panel.background = element_blank(),
          strip.background = element_blank(),
          strip.text = element_text(
            family = "Montserrat", face = "bold", size = 15),
          legend.position = "top",
          legend.text = element_text(
            family = "Montserrat", hjust = .5),
          legend.title = element_text(
            family = "Montserrat", size = 9, hjust = 1),
          plot.caption =  element_text(
            family = "Montserrat", hjust = 1, size = 8),
          panel.border = element_rect(
            colour = "grey", fill=NA, size=1),
          plot.title = element_text(
            family = "Montserrat", hjust = .5, size = 22,
            face = "bold",margin = margin(
              0,0,0.5,0, unit = "cm")),
          plot.subtitle = element_text(
            family = "Montserrat", hjust = .5, size = 16)
    )
  }
  
# Cambiando las etiquetas de los dias de la semana:
dat_pr$weekday <- factor(
  dat_pr$weekday,
  labels = c("lun\\."="l",
             "mar\\."= "m",
             "mié\\."="mi","jue\\." ="j",
             "vie\\."="v","sáb\\."="s",
             "dom\\."="d"))

n <-   ggplot(dat_pr, 
         aes(weekday, -week, fill = pr)) +
    geom_tile(colour = "transparent",
              size = .4)  + 
    geom_text(aes(label = day),
              size = 1.4, color = "black") +
  scale_fill_gradient(low = "white",
                      high = "#3182BD",na.value = "white")+
  facet_wrap(~ month, nrow = 4,
             ncol = 3, scales = "free") +
  labs(title = "¿Cuánto ha llovido en Asana?",
       subtitle = "Precipitación Mensual",
       fill = "Precipitación (mm)") +
  theme_calendar()

ggplotly(n) 
```

### <span style="color:darkblue;font-weight:bold;">DATOS CRUDOS (DESCARGA)</span>

```{r}
data <- df[,c(1,2)]
data$fecha <- as.numeric(data$fecha)*1000-(5*3600*1000)

highchart() %>%
  hc_title(text = "Estación Asana (Datos crudos)") %>%
  hc_xAxis(type = "datetime") %>%
  hc_add_series(data = data, type = "column",
                hcaes(x=fecha,y=Precipitacion),
                name="Precipitacion",color="#3182BD") %>%
  hc_exporting(
    enabled = TRUE,
    buttons = list(
      contextButton = list(
        menuItems = c("downloadPNG",
                      "downloadCSV",
                      "downloadPDF",
                      "downloadJPEG",
                      "downloadXLS",
                      "separator",
                      "resetZoom")))) %>% 
  hc_xAxis(type = "datetime", showLastLabel = FALSE,
           dateTimeLabelFormats = list(month = "%B")) %>% 
  hc_tooltip(shared = TRUE, useHTML = TRUE) %>% 
  hc_chart(zoomType = "x")
```


## Column {data-width="350"}

### <span style="color:darkblue;font-weight:bold;">GRÁFICO DE BARRAS</span>

```{r}
ggplotly(p=m2)
```

## Column {data-width="350"}

### Precipitación acumulada total

```{r}
valueBox(paste0(sum(df$Precipitacion, na.rm=T)," milímetros"), icon = "fa-droplet")

```

### Inicio de mediciones

```{r}
valueBox(min(df$fecha), icon = "fa-pencil")
```

### Última dato descargado de la estación

```{r}
valueBox(max(df$fecha), icon = "fa-pencil")
```

### <span style="color:darkblue;font-weight:bold;">GRÁFICO DE CAJAS</span>

```{r}
ggplotly(a1)
```